home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 3 / Info_Mac_1994-01.iso / Text Processing / Alpha 5.63 / Tcl / SystemCode / think.tcl < prev    next >
Encoding:
Text File  |  1993-11-20  |  6.3 KB  |  292 lines  |  [TEXT/ALFA]
  1.  
  2. # The commands so far are:
  3. #     "thinkNumFiles"                         - Returns number of files in project.
  4. #     "thinkFileName <index>|<name>"             - Indexes start at '1'.
  5. #     "thinkCompileFile <options> <filename>"    - With no options, the action is to 
  6. #                                               compile the named file.
  7. #             -2    tell Think not to open windows for output. Output is tossed.
  8. #             -c    precompile
  9. #             -d    dissasemble
  10. #            -g    run
  11. #            -m    make
  12. #             -n    use source file even for "make". This is because sending a project
  13. #                 object descriptor w/ the make command does nothing. Sending a
  14. #                 descriptor for an individual source file w/ the make command makes 
  15. #                 the entire project. Don't ask me.
  16. #             -p    preprocess
  17. #             -r <0|1>    Wait for reply if '1', don't wait for '0'. Default for all
  18. #                except precompile and disassemble, because these two are *supposed*
  19. #                to return their text.
  20. #             -s    check syntax.
  21. #            -u     bring up-to-date.
  22. #     
  23. # 
  24. # "thinkCompileFile -m -n <any of the file names>" seems to make the entire project.
  25.  
  26.  
  27.  
  28. # Get list of files in current project.
  29. proc projectFileList args {
  30.     watchCursor
  31.     set num [thinkNumFiles]
  32.     set files {}
  33.     if {[llength $args]} {
  34.         for {set i 1} {$i<=$num} {incr i} {
  35.             lappend files [thinkFileName -p $i]
  36.         }
  37.     } else {
  38.         for {set i 1} {$i<=$num} {incr i} {
  39.             lappend files [thinkFileName $i]
  40.         }
  41.     }
  42.     return $files
  43. }
  44.  
  45.  
  46.  
  47. # Think reference 2.0 support. From the shell:
  48. #    dosc -c 'DanR' -k 'DanR' -e "'REF '" -s "PutScrap"
  49. # tells think reference to find and display the correct reference.
  50. #    dosc -c 'DanR' -k 'DanR' -e 'TMPL' -s "PutScrap"
  51. # queries Think Reference for a function template and IM reference,
  52. # and displays information about the function in the background.
  53. # The following function interprets the selected text as a function 
  54. # name and displays in an alert the function template.
  55. proc thinkReferenceTemplate args {
  56.     if {[getPos] == [selEnd]} return
  57.     catch {dosc -c 'DanR' -k 'DanR' -e 'TMPL' -s [getSelect]} res
  58.     alertnote $res
  59. }
  60.  
  61. proc add {} {
  62.     thinkAddFile [lindex [winNames -f] 0]
  63. }
  64.  
  65. proc addAndCompile {} {
  66.     add
  67.     compile
  68. }
  69.  
  70. proc compile {} {
  71.     watchCursor
  72.     thinkCompileFile -c -r [lindex [winNames] 0]
  73. }
  74.  
  75. proc checkSyntax {} {
  76.     watchCursor
  77.     thinkCompileFile -s -r [lindex [winNames] 0]
  78. }
  79.  
  80. proc disassemble {} {
  81.     watchCursor
  82.     thinkCompileFile -d -r [lindex [winNames] 0]
  83. }
  84.  
  85. proc preprocess {} {
  86.     "Think isn't quite there yet..."
  87.     return
  88.     watchCursor
  89.     thinkCompileFile -z [lindex [winNames] 0]
  90. }
  91.  
  92. proc precompile {} {
  93.     watchCursor
  94.     thinkCompileFile -p -r [lindex [winNames] 0]
  95. }
  96.  
  97. proc bringUpToDate {} {
  98.     watchCursor
  99.     thinkCompileFile -u -r
  100. }
  101.  
  102. proc make {} {
  103.     watchCursor
  104.     thinkCompileFile -m -r
  105. }
  106.  
  107. proc run {} {
  108.     set name [checkRunning ThinkC KAHL thinkName]
  109.     thinkCompileFile -g
  110.     switchTo $name
  111. }
  112.  
  113.  
  114.  
  115. #================================================================================
  116. set lastTrap {}
  117.  
  118. proc insertTrapTemplate {} {
  119.     global lastTrap
  120.  
  121.     if {![string length [checkRunning ThinkReference DanR referencePath]]} return
  122.     set text [getSelect]
  123.     if {![string length $text]} {
  124.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  125.     } else {
  126.         deleteText [getPos] [selEnd]
  127.     }
  128.     set lastTrap $text
  129.     if {[catch {thinkReference -t $text} out]} {
  130.         alertnote "THINK Reference not running..."
  131.     } else {
  132.         insertText $out
  133.     }
  134. }
  135.  
  136. proc displayTrapTemplate {} {
  137.     global lastTrap
  138.  
  139.     if {![string length [checkRunning ThinkReference DanR referencePath]]} return
  140.     set text {}
  141.     catch {set text [getSelect]}
  142.     if {![string length $text]} {
  143.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  144.     }
  145.     set lastTrap $text
  146.     if {[catch {thinkReference -t $text} out]} {
  147.         alertnote "THINK Reference not running..."
  148.     } else {
  149.         alertnote $out
  150.     }
  151. }
  152.  
  153. proc lookupTrap {} {
  154.     global lastTrap
  155.  
  156.     if {![string length [checkRunning ThinkReference DanR referencePath]]} return
  157.     set text {}
  158.     catch {set text [getSelect]}
  159.     if {![string length $text]} {
  160.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  161.     }
  162.     set lastTrap $text
  163.     if {[catch {thinkReference -l aesend $text}]} {
  164.         alertnote "THINK Reference not running..."
  165.     }
  166. }
  167.  
  168. proc gotoReference {} {
  169.     switchTo [checkRunning ThinkReference DanR referencePath]
  170. }
  171.  
  172. menu -n "•265" {
  173.     "gotoReference"
  174.     "(-"
  175.     "displayTrapTemplate"
  176.     "insertTrapTemplate"
  177.     "lookupTrap"
  178. }
  179.  
  180. #================================================================================
  181.  
  182.  
  183. proc think {} {
  184.     set name [checkRunning ThinkC KAHL thinkName]
  185.     if {![string length $name]} return
  186.     switchTo $name
  187. }
  188.  
  189. proc findInNextFile {} {
  190.     thinkFinf
  191. }
  192.  
  193.  
  194. # The 'Files' menu can instantiate itself from the THINK Project Manager if 
  195. # it is running. 
  196. menu -n "•300" {
  197.     "/-think"
  198.     "openHeader"
  199.     "setIncludepath…"
  200.     "(-"
  201.     {menu -n {Project Files} {
  202.         "getProjectFiles"}}
  203.     "createProjectFileset"
  204.     "(-"
  205.     "/Kcompile"
  206.     "checkSyntax"
  207.     "findInNextFile"
  208.     "(-"
  209.     "add"
  210.     "addAndCompile"
  211.     "(-"
  212.     "disassemble"
  213.     "preprocess"
  214.     "(precompile"
  215.     "(-"
  216.     "/UbringUpToDate"
  217.     "make"
  218.     "(-"
  219.     "/Rrun"
  220. }
  221.  
  222. proc getProjectFiles args {
  223.     menu -n {Project Files} -m -p projFile [lsort [projectFileList -p]]
  224. }
  225.  
  226. proc projFile {menu name} {
  227.     edit [thinkFileName $name]
  228. }
  229.  
  230.  
  231. #===========================================================================
  232. # Add fileset.
  233. #===========================================================================
  234. proc createProjectFileset {} {
  235.     global fileSets
  236.     global currFileSet
  237.     
  238.     set name "Project"
  239.     set fileSets($name) [projectFileList]
  240.     addMenuItem -m fileSets $name
  241.     set currFileSet $name
  242. }
  243.  
  244. #================================================================================
  245.  
  246. proc checkIncludepath {} {
  247.     global includePath
  248.     set bad 0
  249.     if {![info exists includePath]} {return [setIncludepath]}
  250.     foreach p [subVars $includePath] {
  251.         if {![file exists $p]} {set bad 1}
  252.     }
  253.     if ($bad) setIncludepath
  254. }
  255.  
  256. proc setIncludepath {} {
  257.     global includePath HOME
  258.     
  259.     set includePath {}
  260.     
  261.     while {[string length [set path [get_directory]]]} {
  262.         lappend includePath $path
  263.     }
  264.     
  265.     set fid [open "$HOME:Tcl:SystemCode:definitions.tcl" "a"]
  266.     puts $fid "set includePath \"$includePath\""
  267.     close $fid
  268. }
  269.  
  270. proc openHeader {} {
  271.     global includePath
  272.  
  273.     checkIncludepath
  274.     set path [subVars $includePath]
  275.     set fname [getSelect]
  276.     if {[string last ".h" $fname]=="-1"} {
  277.         set fname ${fname}.h
  278.     }
  279.     set win [lindex [winNames -f] 0]
  280.     if {[string match *:* $win]} {
  281.         lappend path [file dirname $win]
  282.     }
  283.     foreach dir $path {
  284.         if {[file exists $dir:$fname]} {
  285.             edit $dir:$fname
  286.             return
  287.         }
  288.     }
  289.     beep
  290.     message "No such header file"
  291. }
  292.